Voorbeeld van de instructie Resume

Dit voorbeeld maakt gebruik van de instructie Resume om de foutafhandeling in een procedure te beδindigen en vervolgens de uitvoering te hervatten met de instructie die de fout veroorzaakte. Foutnummer 55 wordt gegenereerd om het gebruik van de instructie Resume te illustreren.

Sub ResumeStatementDemo()
    On Error GoTo FoutAfhandeling    ' Enable error-handling routine.
    Open "TESTBSTD" For Output As #1    ' Open file for output.
    Kill "TESTBESTAND"    ' Attempt to delete open file.
    Exit Sub    ' Exit Sub to avoid error handler.
FoutAfhandeling:    ' Error-handling routine.
    Select Case Err.Number    ' Evaluate error number.
        Case 55    ' "Bestand reeds geopend" error.
            Close #1    ' Close open file.
        Case Else
            ' Handle other situations here.... 
    End Select
    Resume    ' Resume execution at same line
    ' that caused the error.
End Sub